أوفيسنا: حماية الخلية من تغيير أو مسح محتوياتها بدالة - بدون حماية الورقة وبدون - أوفيسنا

السلام عليكم
كل عام وانتم بخير
مشاركة كنت ادرجتها من قبل

الاندلسي, on 19 September 2009 - 09:10 AM, said:

بارك الله فيك أخي الأندلسي
ربما يلغي الخطأ الذي يصدر عند فتح الملف تعديل الكود إلى

Private Sub Workbook_Open()
If ActiveCell.HasFormula Then

لأنه لا يوجد taget في حال فتح الملف مباشرة
تفبل تحياتي
أخوك
محمد صالح

تم تعديل هذه المشاركة بواسطةmas123: 19 September 2009 - 09:40 AM

خبور خير, on 18 September 2009 - 10:43 PM, said:

رائع أخي خبور خير

ولكن أنا أهوى اختصار الأكواد

وأداء الوظائف بأقل عدد من السطور البرمجية

لذا

وبعد إذنك طبعا

يمكننا جعل الكود عند فتح الملف

Private Sub Workbook_Open()
ورقة1.KH_sheet_Activate
End Sub

كل عام أنتم بخير بمناسبة عيد الفطر المبارك أعاده الله علينا وعليكم بالخير والبركات

تم تعديل هذه المشاركة بواسطةmas123: 19 September 2009 - 10:11 AM

السلام عليكم
مشكور حدث الفتح اضفته حديثا ولم اجربه
لكن ممكن تتخطى الحدث

Private Sub Workbook_Open()
On Error Resume Next
If Target.HasFormula Then
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If
End Sub

تم تعديل هذه المشاركة بواسطةالاندلسي: 19 September 2009 - 10:09 AM

السلام عليكم ورحمة الله وبركاته
عيد مبارك و كل عام أنتم بخير
أعاده الله علينا وعليكم وعلى جميع المسلمين بالخير واليمن والبركات
=============================================================

اخي محمد صالح

Quote

لو خرجت من الملف وانت على ورقة اخرى غير ورقة1
ثم اعدت فتح الملف انظر ماذا يحدث

السلام عليكم

ملاحظة :
1- الكود لا يغير اي شي في الخلايا المحددة وليس الصيغ فقط.
2- اذا قمت بتحديد اكثر من خلية ومن ضمنها الخلايا المحددة في الكود
لا يتم المسح بتاتا.
=====================
الاخ / الاندلسي حفظه الله
قم بتحديد الخلايا A1:C2
ثم قم بمسحها ما الذي يحدث ؟
=====================
الاخ / محمد صالح حفظه الله
في كودك السابق
قم بتحديد الخلايا من A1 الى اي خلايا تريد ويكون من ضمنها خلايا الصيغ
ثم قم بمسحها ما الذي يحدث ؟

ودمتم في حفظ الله

ودمت انت ايضا في حفظ الله

السلام عليكم

Quote

تفضل المرفق

تم تعديل هذه المشاركة بواسطةخبور خير: 19 September 2009 - 10:46 PM

السلام عليكم ورحمة الله ..... كل عام وأنتم بخير ....

أستاذ خبور شكرا جزيلا كفيت ووفيت ...

أستاذ محمد صالح أشكرك مجددا وأتمنى أن تعيد النظر في ملاحظاتي السابقة على الكود الذي وضعت - رغم أن الملف الذي أرفقه الاستاذ خبور كافي ولكن الكود الذي وضعت في مشاركة رقم 13 فيه خصوصية حماية المعادلات بدون التحديد اليدوي لنطاق معين وهذه ميزة ذكية في الكود... أرجو منك أومن الاستاذ خبور التعديل بخصوص ملاحظات الأ ستاذ خبور الاخيرة + الملاحظات التالية :

( جرب وضع معادلة في الخلية IV1 وهي تقع في أقص يمين الورقة - تخرج رسالة خطأ لأنه لاتوجد خلية مجاورة للإنتقال اليها

لو تضيف للكود خصوصية الانتقال يمين ( أو ) يسار لأن كل خلية حتما لابد لها من يمين أو يسار أو فوق أو تحت .... ارجو التعديل.

و(أتمنى أيضا أن يكون التعديل في الكود القادم شاملا لخصوصية الوقوف عند أول خلية فارغة ( من العمود الذي تم الوقوف فيه قبل الخروج ) فلو تم الخروج من

المستند وكانت الخلية النشطة ضمن أحد الخلاياغيرالفارغة من العمود B فإنه ينبغي عند فتح المستند من جديد يتم التركيز على أول خلية فارغة من نفس العمود.

وهذه الخصوصية موجود في ( الملف المرفق في المجلد رقم2 ) وهي تعمل بالضغط على زر لكن المطلوب أن يعمل الماكرو تلقائيا بعد فتح المستند مباشرة بدون ضغط الزر . )